home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global scrollTop, scrollmax
- set cn to the castNum of sprite the clickOn
- set the castNum of sprite the clickOn to cn + 1
- updateStage()
- scrolldown()
- if not (the controlDown) then
- repeat while the stillDown
- if rollOver(the clickOn) then
- scrolldown()
- end if
- end repeat
- else
- repeat while the stillDown
- nothing()
- end repeat
- repeat while not (the mouseDown)
- if scrollTop = 0 then
- repeat with i = 0 to scrollmax
- set scrollTop to i
- if (i mod 4) = 0 then
- updatethumb()
- end if
- end repeat
- updatethumb()
- deselect()
- updatepict()
- next repeat
- end if
- scrolldown()
- end repeat
- end if
- set the castNum of sprite the clickOn to cn
- updateStage()
- indicateoff()
- end
-